home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / SELECT-1.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-08-31  |  1.2 KB  |  40 lines
  1. ' SELECT-1.BAS
  2. ' This program asks the user for his or her name, prints a menu,
  3. '   and asks the user to choose a menu item.  The program then
  4. '   displays a message based on which menu item the user chose.
  5.  
  6. CLS
  7.  
  8. INPUT "Please enter your name:  ", userName$
  9. PRINT
  10. PRINT "Congratulations, "; userName$; "!  You've won the final"
  11. PRINT "round of Go Ahead--Make My Deal!!  Please choose"
  12. PRINT "which prize you want:"
  13. PRINT
  14. PRINT , "1.  Door #1"
  15. PRINT , "2.  What's behind the curtain"
  16. PRINT , "3.  The Big Pink Box"
  17. PRINT
  18. INPUT "Please enter 1, 2, or 3:  ", menuNum%
  19. PRINT
  20.  
  21. SELECT CASE menuNum%
  22.     CASE 1
  23.         PRINT "** It's a new car!!! **"
  24.         PRINT "Yes, it's the new Land Yacht 2000,"
  25.         PRINT "complete with Guzzle-O-Matic!"
  26.     CASE 2
  27.         PRINT "** 500 pogo sticks!!! **"
  28.         PRINT "Yes, you and your entire family can hop till you"
  29.         PRINT "drop with the latest in pogoing fun!"
  30.     CASE 3
  31.         PRINT "** A lifetime supply of pickled herring!!! **"
  32.         PRINT "Yes, twelve thousand jars of Smelz-Good"
  33.         PRINT "pickled herring delivered to your front door!"
  34. END SELECT
  35.  
  36. PRINT
  37. PRINT "Thanks for playing!"
  38.  
  39.  
  40.